home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MATH / PRAXIS.ZIP / TP.C < prev    next >
C/C++ Source or Header  |  1987-07-15  |  415b  |  24 lines
  1. #include <math.h>
  2. #include "machine.h"
  3.  
  4. extern double rosen();
  5. extern double praxis();
  6. extern double tol;
  7. extern int prin, maxfun;
  8.  
  9. main()
  10. {
  11.    double x[N];
  12.    double fx;
  13.    int n;
  14.    
  15.    x[0] = -1.2;
  16.    x[1] = 1.0;  
  17.    n = 2;
  18.    tol = 1.0e-20;
  19.    printf("print parameter: ");
  20.    scanf("%d", &prin);
  21.    fx = praxis(rosen, x, n);
  22.    printf("Minimum = %e at point %e,%e\n", fx, x[0], x[1]);
  23. }
  24.